home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zc.d64 / proc.nolist < prev    next >
Text File  |  2007-03-01  |  908b  |  39 lines
  1. 0010 // ╠╔╙╘"@:PROC.NONLIST"
  2. 0020 //
  3. 0030 // ╒NI├OMAL ┴P╙ 1984
  4. 0040 // (├)1985 ├╧═┴╠80GG╬╠ - ─EN ╚AAG
  5. 0050 //
  6. 0060 // ╨╥╧├ WEGTOT  (REGEL):
  7. 0070 //   MAAKT REGELS TOT 'REGEL' NIET
  8. 0080 //   ╠╔╙╘BAAR
  9. 0090 //
  10. 0100 // ╨╥╧├ TERUG
  11. 0110 //   MAAKT ALLE REGEL ╠╔╙╘BAAR
  12. 0120 
  13. 0130 ╨╥╧├ WEGTOT(REG) ├╠╧╙┼─
  14. 0140   PT:=╨┼┼╦($16)+╨┼┼╦($17)*256
  15. 0150   ╠╧╧╨ 
  16. 0160     REGNR:=╨┼┼╦(PT)*256+╨┼┼╦(PT+1)
  17. 0170     ╔╞ REGNR>9999 ╘╚┼╬ REGNR:-10000
  18. 0180     L:=╨┼┼╦(PT+2)
  19. 0190     ┼╪╔╘ ╫╚┼╬ REGNR>REG ╧╥ L=0
  20. 0200     ╨╧╦┼ PT,REGNR ─╔╓ 256
  21. 0210     ╨╧╦┼ PT+1,REGNR ═╧─ 256
  22. 0220     ╨╥╔╬╘ "*",
  23. 0230     PT:+L
  24. 0240   ┼╬─╠╧╧╨ 
  25. 0250 ┼╬─╨╥╧├ WEGTOT
  26. 0260 
  27. 0270 ╨╥╧├ TERUG ├╠╧╙┼─
  28. 0280   PT:=╨┼┼╦($16)+╨┼┼╦($17)*256
  29. 0290   REGNR:=10010
  30. 0300   ╠╧╧╨ 
  31. 0310     L:=╨┼┼╦(PT+2)
  32. 0320     ┼╪╔╘ ╫╚┼╬ L=0
  33. 0330     ╨╧╦┼ PT,REGNR ─╔╓ 256
  34. 0340     ╨╧╦┼ PT+1,REGNR ═╧─ 256
  35. 0350     ╨╥╔╬╘ "*",
  36. 0360     PT:+L; REGNR:+10
  37. 0370   ┼╬─╠╧╧╨ 
  38. 0380 ┼╬─╨╥╧├ TERUG
  39.